home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / gcc / gcc258s.zoo / gcc-258.diff < prev    next >
Encoding:
Text File  |  1994-01-27  |  67.9 KB  |  2,460 lines
  1. diff -rc gcc-2.5.0/c-lex.c /usr1/bammi/sun/usr2/gcc/c-lex.c
  2. *** gcc-2.5.0/c-lex.c    Tue Dec 14 10:45:35 1993
  3. --- /usr1/bammi/sun/usr2/gcc/c-lex.c    Tue Dec 14 10:37:39 1993
  4. ***************
  5. *** 473,484 ****
  6. --- 473,486 ----
  7.       case '\r':
  8.         /* ANSI C says the effects of a carriage return in a source file
  9.            are undefined.  */
  10. + #ifndef atarist /* but not on an atarist, though hopefully we should'nt see it */
  11.         if (pedantic && !newline_warning)
  12.           {
  13.             warning ("carriage return in source file");
  14.             warning ("(we only warn about the first carriage return)");
  15.             newline_warning = 1;
  16.           }
  17. + #endif
  18.         c = getc (finput);
  19.         break;
  20.   
  21. ***************
  22. *** 1438,1444 ****
  23.       if (floatflag != NOT_FLOAT)
  24.         {
  25.           tree type = double_type_node;
  26. !         int garbage_chars = 0, exceeds_double = 0;
  27.           int imag = 0;
  28.           REAL_VALUE_TYPE value;
  29.           jmp_buf handler;
  30. --- 1440,1446 ----
  31.       if (floatflag != NOT_FLOAT)
  32.         {
  33.           tree type = double_type_node;
  34. !         int garbage_chars = 0;
  35.           int imag = 0;
  36.           REAL_VALUE_TYPE value;
  37.           jmp_buf handler;
  38. ***************
  39. *** 1537,1578 ****
  40.   
  41.               type = float_type_node;
  42.               value = REAL_VALUE_ATOF (copy, TYPE_MODE (type));
  43. -             if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  44. -             && REAL_VALUE_ISINF (value) && pedantic)
  45. -               pedwarn ("floating point number exceeds range of `float'");
  46.             }
  47.           else if (lflag)
  48.             {
  49.               type = long_double_type_node;
  50.               value = REAL_VALUE_ATOF (copy, TYPE_MODE (type));
  51. -             if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  52. -             && REAL_VALUE_ISINF (value) && pedantic)
  53. -               pedwarn ("floating point number exceeds range of `long double'");
  54.             }
  55.           else
  56.             {
  57.               value = REAL_VALUE_ATOF (copy, TYPE_MODE (type));
  58. -             if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  59. -             && REAL_VALUE_ISINF (value) && pedantic)
  60. -               pedwarn ("floating point number exceeds range of `double'");
  61.             }
  62.   
  63.           set_float_handler (NULL_PTR);
  64.           }
  65.   #ifdef ERANGE
  66. !         if (errno == ERANGE && !flag_traditional && pedantic)
  67.             {
  68. !           /* ERANGE is also reported for underflow,
  69. !              so test the value to distinguish overflow from that.  */
  70. !         if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  71. !             && (REAL_VALUES_LESS (dconst1, value)
  72. !             || REAL_VALUES_LESS (value, dconstm1)))
  73. !           {
  74. !             pedwarn ("floating point number exceeds range of `double'");
  75. !             exceeds_double = 1;
  76. !           }
  77.             }
  78. - #endif
  79.           garbage_chars = 0;
  80.           while (isalnum (c) || c == '.' || c == '_'
  81.              || (!flag_traditional && (c == '+' || c == '-')
  82. --- 1539,1572 ----
  83.   
  84.               type = float_type_node;
  85.               value = REAL_VALUE_ATOF (copy, TYPE_MODE (type));
  86.             }
  87.           else if (lflag)
  88.             {
  89.               type = long_double_type_node;
  90.               value = REAL_VALUE_ATOF (copy, TYPE_MODE (type));
  91.             }
  92.           else
  93.             {
  94.               value = REAL_VALUE_ATOF (copy, TYPE_MODE (type));
  95.             }
  96.   
  97.           set_float_handler (NULL_PTR);
  98.           }
  99. +         if (pedantic
  100. +         && (REAL_VALUE_ISINF (value)
  101.   #ifdef ERANGE
  102. !             || (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  103. !             && errno == ERANGE
  104. !             /* ERANGE is also reported for underflow, so test the
  105. !                value to distinguish overflow from that.  */
  106. !             && (REAL_VALUES_LESS (dconst1, value)
  107. !                 || REAL_VALUES_LESS (value, dconstm1)))
  108. ! #endif
  109. !             ))
  110.             {
  111. !         pedwarn ("floating point number exceeds range of `%s'",
  112. !              IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type))));
  113.             }
  114.           garbage_chars = 0;
  115.           while (isalnum (c) || c == '.' || c == '_'
  116.              || (!flag_traditional && (c == '+' || c == '-')
  117. diff -rc gcc-2.5.0/calls.c /usr1/bammi/sun/usr2/gcc/calls.c
  118. *** gcc-2.5.0/calls.c    Tue Dec  7 09:35:48 1993
  119. --- /usr1/bammi/sun/usr2/gcc/calls.c    Sun Dec  5 14:22:08 1993
  120. ***************
  121. *** 2107,2112 ****
  122. --- 2107,2118 ----
  123.   
  124.     argvec = (struct arg *) alloca (nargs * sizeof (struct arg));
  125.   
  126. + /* how would you do this RIGHT ?? fake a DECL node? dunno... */
  127. + #ifdef ENCODE_SECTION_INFO
  128. +   /* mark it as a function (to be in the text section that is) */
  129. +   SYMBOL_REF_FLAG (fun) = 1;
  130. + #endif
  131. + 
  132.     INIT_CUMULATIVE_ARGS (args_so_far, NULL_TREE, fun);
  133.   
  134.     args_size.constant = 0;
  135. ***************
  136. *** 2403,2408 ****
  137. --- 2409,2419 ----
  138.        library functions shouldn't have many args.  */
  139.   
  140.     argvec = (struct arg *) alloca ((nargs + 1) * sizeof (struct arg));
  141. + 
  142. + #ifdef ENCODE_SECTION_INFO
  143. +   /* mark it as a function (to be in the text section that is) */
  144. +   SYMBOL_REF_FLAG (fun) = 1;
  145. + #endif
  146.   
  147.     INIT_CUMULATIVE_ARGS (args_so_far, NULL_TREE, fun);
  148.   
  149. diff -rc gcc-2.5.0/cccp.c /usr1/bammi/sun/usr2/gcc/cccp.c
  150. *** gcc-2.5.0/cccp.c    Tue Dec 14 10:45:37 1993
  151. --- /usr1/bammi/sun/usr2/gcc/cccp.c    Tue Dec 14 10:37:41 1993
  152. ***************
  153. *** 77,82 ****
  154. --- 77,83 ----
  155.   #include <stdio.h>
  156.   #include <signal.h>
  157.   
  158. + #ifndef atarist
  159.   #ifndef VMS
  160.   #ifndef USG
  161.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  162. ***************
  163. *** 86,95 ****
  164. --- 87,110 ----
  165.   #include <fcntl.h>
  166.   #endif /* USG */
  167.   #endif /* not VMS */
  168. + #endif /* not atarist */
  169.   
  170.   /* This defines "errno" properly for VMS, and gives us EACCES. */
  171.   #include <errno.h>
  172.   
  173. + /* atarist  specific defs and includes */
  174. + #ifdef atarist
  175. + #include <time.h>
  176. + #include <file.h>
  177. + #include <string.h>
  178. + #include <stddef.h>
  179. + 
  180. + long _stksize = -1L;    /* want big stack cause include files
  181. +                    get alloca'ed there */
  182. + 
  183. + #define read(fd,buf,size)    _text_read(fd,buf,size)
  184. + #endif /* atarist */
  185. + 
  186.   /* VMS-specific definitions */
  187.   #ifdef VMS
  188.   #include <time.h>
  189. ***************
  190. *** 1073,1078 ****
  191. --- 1088,1097 ----
  192.     /* Target-name to write with the dependency information.  */
  193.     char *deps_target = 0;
  194.   
  195. + #ifdef atarist
  196. + #define GCC_INCLUDE_DIR "./"
  197. + #endif  
  198. + 
  199.   #ifdef RLIMIT_STACK
  200.     /* Get rid of any avoidable limit on stack size.  */
  201.     {
  202. ***************
  203. *** 1395,1404 ****
  204. --- 1414,1429 ----
  205.       break;
  206.   
  207.         case 'v':
  208. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  209. + #include "PatchLev.h"
  210. +     fprintf (stderr, "GNU CPP-atariST version %s Patchlevel %s",
  211. +          version_string, PatchLevel);
  212. + #else
  213.       fprintf (stderr, "GNU CPP version %s", version_string);
  214.   #ifdef TARGET_VERSION
  215.       TARGET_VERSION;
  216.   #endif
  217. + #endif
  218.       fprintf (stderr, "\n");
  219.       verbose = 1;
  220.       break;
  221. ***************
  222. *** 1532,1537 ****
  223. --- 1557,1563 ----
  224.       }
  225.     }
  226.   
  227. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  228.     /* Add dirs from CPATH after dirs from -I.  */
  229.     /* There seems to be confusion about what CPATH should do,
  230.        so for the moment it is not documented.  */
  231. ***************
  232. *** 1541,1546 ****
  233. --- 1567,1573 ----
  234.     p = (char *) getenv ("CPATH");
  235.     if (p != 0 && ! no_standard_includes)
  236.       path_include (p);
  237. + #endif
  238.   
  239.     /* Now that dollars_in_ident is known, initialize is_idchar.  */
  240.     initialize_char_syntax ();
  241. ***************
  242. *** 1659,1666 ****
  243.     { /* read the appropriate environment variable and if it exists
  244.          replace include_defaults with the listed path. */
  245.       char *epath = 0;
  246.       switch ((objc << 1) + cplusplus)
  247. !       {
  248.         case 0:
  249.       epath = getenv ("C_INCLUDE_PATH");
  250.       break;
  251. --- 1686,1741 ----
  252.     { /* read the appropriate environment variable and if it exists
  253.          replace include_defaults with the listed path. */
  254.       char *epath = 0;
  255. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  256. +     int db_hack = 0;
  257. +     char *e1 = getenv("GNUINC"), *e2 = getenv("GNULIB"),
  258. +          *e3 = getenv("GXXINC");
  259. + 
  260. + 
  261. +     /* Get length of the alloc'ed array. (Yeah I know, I might alloc
  262. +      * a character more than I need but who cares...
  263. +      */
  264. +     if (cplusplus && e3)
  265. +     db_hack += strlen (e3);
  266. +     if (e1)
  267. +         db_hack += strlen (e1) + 1;
  268. +     if (e2)
  269. +         db_hack += strlen (e1) + 1;
  270. + 
  271. +     if (db_hack) {
  272. +     epath = alloca (db_hack + 1);
  273. +     *epath = '\0';
  274. +     db_hack = 0;
  275. + 
  276. +     /* Concatenate the paths together. */
  277. +     if (cplusplus && e3) {
  278. +         strcpy (epath, e3);
  279. +         db_hack = 1;
  280. +     }
  281. +     if (e1) {
  282. +         if (db_hack) {
  283. +         strcat (epath, PATH_SEP_STR);
  284. +         }
  285. +         strcat (epath, e1);
  286. +         db_hack = 1;
  287. +     }
  288. +     if (e2) {
  289. +         if (db_hack) {
  290. +         strcat (epath, PATH_SEP_STR);
  291. +         }
  292. +         strcat (epath, e2);
  293. +     }
  294. +     }
  295. + 
  296. + #ifdef atarist
  297. +     if (epath)
  298. +         for (e3=epath; *e3; e3++)    /* Use one kind of path separator */
  299. +         if (*e3 == ';')
  300. +         *e3 = PATH_SEPARATOR;
  301. + #endif
  302. + #else
  303.       switch ((objc << 1) + cplusplus)
  304. !     {
  305.         case 0:
  306.       epath = getenv ("C_INCLUDE_PATH");
  307.       break;
  308. ***************
  309. *** 1673,1679 ****
  310.         case 3:
  311.       epath = getenv ("OBJCPLUS_INCLUDE_PATH");
  312.       break;
  313. !       }
  314.       /* If the environment var for this language is set,
  315.          add to the default list of include directories.  */
  316.       if (epath) {
  317. --- 1748,1756 ----
  318.         case 3:
  319.       epath = getenv ("OBJCPLUS_INCLUDE_PATH");
  320.       break;
  321. !     }
  322. ! #endif
  323. ! 
  324.       /* If the environment var for this language is set,
  325.          add to the default list of include directories.  */
  326.       if (epath) {
  327. ***************
  328. *** 1727,1739 ****
  329. --- 1804,1826 ----
  330.     if (!no_standard_includes) {
  331.       struct default_include *p = include_defaults;
  332.       char *specd_prefix = include_prefix;
  333. + #ifdef GCC_INCLUDE_DIR
  334.       char *default_prefix = savestring (GCC_INCLUDE_DIR);
  335. + #else
  336. +     char *default_prefix = savestring ("./");
  337. + #endif
  338.       int default_len = 0;
  339.       /* Remove the `include' from /usr/local/lib/gcc.../include.  */
  340.       if (!strcmp (default_prefix + strlen (default_prefix) - 8, "/include")) {
  341.         default_len = strlen (default_prefix) - 7;
  342.         default_prefix[default_len] = 0;
  343.       }
  344. + #ifdef atarist
  345. +     else if (!strcmp (default_prefix + strlen (default_prefix) - 8, "\\include")) {
  346. +       default_len = strlen (default_prefix) - 7;
  347. +       default_prefix[default_len] = 0;
  348. +     }
  349. + #endif
  350.       /* Search "translated" versions of GNU directories.
  351.          These have /usr/local/lib/gcc... replaced by specd_prefix.  */
  352.       if (specd_prefix != 0 && default_len != 0)
  353. ***************
  354. *** 1875,1881 ****
  355. --- 1962,1972 ----
  356.         char *p1 = p;
  357.         /* Discard all directory prefixes from P.  */
  358.         while (*p1) {
  359. + #ifdef atarist
  360. +     if ((*p1 == '/') || (*p1 == '\\'))
  361. + #else
  362.       if (*p1 == '/')
  363. + #endif
  364.         p = p1 + 1;
  365.       p1++;
  366.         }
  367. ***************
  368. *** 2049,2054 ****
  369. --- 2140,2146 ----
  370.     return 0;
  371.   }
  372.   
  373. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  374.   /* Given a colon-separated list of file names PATH,
  375.      add all the names to the search path for include files.  */
  376.   
  377. ***************
  378. *** 2096,2101 ****
  379. --- 2188,2194 ----
  380.         p++;
  381.       }
  382.   }
  383. + #endif /* atarist */
  384.   
  385.   /* Pre-C-Preprocessor to translate ANSI trigraph idiocy in BUF
  386.      before main CCCP processing.  Name `pcp' is also in honor of the
  387. ***************
  388. *** 3282,3287 ****
  389. --- 3375,3381 ----
  390.     assertions_flag = save_assertions_flag;
  391.     return obuf;
  392.   }
  393. + /* #endif */
  394.   
  395.   /*
  396.    * Process a # directive.  Expects IP->bufp to point after the '#', as in
  397. ***************
  398. *** 3981,3987 ****
  399. --- 4075,4086 ----
  400.           dsp[0].next = search_start;
  401.           search_start = dsp;
  402.   #ifndef VMS
  403. + #ifdef atarist
  404. +         if((ep = rindex(nam, '\\')) == NULL)
  405. +         ep = rindex(nam, '/');
  406. + #else
  407.           ep = rindex (nam, '/');
  408. + #endif
  409.   #else                /* VMS */
  410.           ep = rindex (nam, ']');
  411.           if (ep == NULL) ep = rindex (nam, '>');
  412. ***************
  413. *** 4061,4069 ****
  414. --- 4160,4182 ----
  415.   
  416.     /* If specified file name is absolute, just open it.  */
  417.   
  418. + #ifdef atarist
  419. +   if ((*fbeg == '\\') || (*fbeg == '/')) {
  420. +     if(fbeg[2] == ':')
  421. +     { /* allow "\D:\xxx" */
  422. +         strncpy (fname, fbeg+1, flen-1);
  423. +         fname[flen-1] = 0;
  424. +     }
  425. +     else
  426. +     {  /* allow "\lib\xxx" == "\currentdrive:\lib\xxx" */
  427. +         strncpy (fname, fbeg, flen);
  428. +         fname[flen] = 0;
  429. +     }
  430. + #else
  431.     if (*fbeg == '/') {
  432.       strncpy (fname, fbeg, flen);
  433.       fname[flen] = 0;
  434. + #endif
  435.       if (redundant_include_p (fname))
  436.         return 0;
  437.       if (importing)
  438. ***************
  439. *** 4084,4090 ****
  440. --- 4197,4207 ----
  441.       if (searchptr->fname[0] == 0)
  442.         continue;
  443.       strcpy (fname, searchptr->fname);
  444. + #ifdef atarist
  445. +     strcat (fname, "\\");
  446. + #else
  447.       strcat (fname, "/");
  448. + #endif
  449.       fname[strlen (fname) + flen] = 0;
  450.         } else {
  451.       fname[0] = 0;
  452. ***************
  453. *** 4197,4213 ****
  454.   
  455.       if (!no_precomp)
  456.         do {
  457.       sprintf (pcftry, "%s%d", fname, pcfnum++);
  458.       
  459.       pcf = open (pcftry, O_RDONLY, 0666);
  460.       if (pcf != -1)
  461.         {
  462.           struct stat s;
  463.   
  464.           fstat (pcf, &s);
  465.           if (bcmp (&stat_f.st_ino, &s.st_ino, sizeof (s.st_ino))
  466.           || stat_f.st_dev != s.st_dev)
  467. !           {
  468.           pcfbuf = check_precompiled (pcf, fname, &pcfbuflimit);
  469.           /* Don't need it any more.  */
  470.           close (pcf);
  471. --- 4314,4372 ----
  472.   
  473.       if (!no_precomp)
  474.         do {
  475. + #ifdef atarist
  476. +     int numlen;
  477. +     char *dot;
  478. +     char *slash;
  479. + 
  480. +     /* cut extension to 3 chars and dont depend on UNIXMODE           */
  481. +     /* this will have to be done when saving precompiled headers, too */
  482. +     /* but as far as I tried, they dont work up to now, anyway   (AL) */
  483. + 
  484. +       if( pcfnum>=100 )     numlen=3;
  485. +       else if( pcfnum>=10 ) numlen=2;
  486. +       else                  numlen=1;
  487. + 
  488. +       dot=strrchr( fname, '.' );
  489. +       if( (slash=strrchr( fname, '/')) && slash>dot )
  490. +         dot=NULL;
  491. +       else
  492. +       if( (slash=strrchr( fname, '\\')) && slash>dot )
  493. +         dot=NULL;
  494. + 
  495. +       if( dot ) {
  496. +         if( strlen(dot)-1>3-numlen ) {
  497. +           sprintf(pcftry, "%.*s%d", strlen(fname)-(strlen(dot)-(4-numlen)),
  498. +                   fname, pcfnum++);
  499. +         } else {
  500. +           sprintf(pcftry, "%s%d", fname, pcfnum++);
  501. +         }
  502. +       } else {
  503. +         sprintf( pcftry, "%s.%d", fname, pcfnum++);
  504. +       }
  505. + #else    /* looks like we got a sane filesystem */
  506.       sprintf (pcftry, "%s%d", fname, pcfnum++);
  507. + #endif
  508. + #if 0
  509. +     fprintf ( stderr, "trying precompiled file %s.\n", pcftry );
  510. + #endif
  511.       
  512.       pcf = open (pcftry, O_RDONLY, 0666);
  513.       if (pcf != -1)
  514.         {
  515. + #ifndef atarist
  516. +         /* dont bother with this on the ST since these field are faked
  517. +          * anyways
  518. +              */
  519.           struct stat s;
  520.   
  521.           fstat (pcf, &s);
  522.           if (bcmp (&stat_f.st_ino, &s.st_ino, sizeof (s.st_ino))
  523.           || stat_f.st_dev != s.st_dev)
  524. ! #else
  525. !         if (1)
  526. ! #endif
  527. !               {
  528.           pcfbuf = check_precompiled (pcf, fname, &pcfbuflimit);
  529.           /* Don't need it any more.  */
  530.           close (pcf);
  531. ***************
  532. *** 6210,6216 ****
  533.     free (trybuf.buf);
  534.   
  535.     /* Output directive name.  */
  536. !   check_expand (op, 8);
  537.     bcopy ("#ident ", op->bufp, 7);
  538.     op->bufp += 7;
  539.   
  540. --- 6369,6375 ----
  541.     free (trybuf.buf);
  542.   
  543.     /* Output directive name.  */
  544. !   check_expand (op, 7);
  545.     bcopy ("#ident ", op->bufp, 7);
  546.     op->bufp += 7;
  547.   
  548. ***************
  549. *** 8956,8961 ****
  550. --- 9115,9121 ----
  551.     deps_buffer[deps_size] = 0;
  552.   }
  553.   
  554. + #if (!(defined(atarist) || defined(atariminix)))
  555.   #if defined(USG) || defined(VMS)
  556.   #ifndef BSTRING
  557.   
  558. ***************
  559. *** 8992,8998 ****
  560.   }
  561.   #endif /* not BSTRING */
  562.   #endif /* USG or VMS */
  563. ! 
  564.   
  565.   static void
  566.   fatal (str, arg)
  567. --- 9152,9158 ----
  568.   }
  569.   #endif /* not BSTRING */
  570.   #endif /* USG or VMS */
  571. ! #endif /* any atari */
  572.   
  573.   static void
  574.   fatal (str, arg)
  575. diff -rc gcc-2.5.0/config/m68k/m68k.c /usr1/bammi/sun/usr2/gcc/config/m68k/m68k.c
  576. *** gcc-2.5.0/config/m68k/m68k.c    Mon Nov 15 11:07:54 1993
  577. --- /usr1/bammi/sun/usr2/gcc/config/m68k/m68k.c    Mon Nov 15 14:48:56 1993
  578. ***************
  579. *** 61,67 ****
  580.   void
  581.   finalize_pic ()
  582.   {
  583. !   if (flag_pic && current_function_uses_pic_offset_table)
  584.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  585.   }
  586.   
  587. --- 61,67 ----
  588.   void
  589.   finalize_pic ()
  590.   {
  591. !   if (flag_pic && flag_pic < 3 && current_function_uses_pic_offset_table)
  592.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  593.   }
  594.   
  595. ***************
  596. *** 214,220 ****
  597.         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  598.   #endif
  599.       }
  600. !   if (flag_pic && current_function_uses_pic_offset_table)
  601.       {
  602.   #ifdef MOTOROLA
  603.         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  604. --- 214,220 ----
  605.         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  606.   #endif
  607.       }
  608. !   if (flag_pic && flag_pic < 3 && current_function_uses_pic_offset_table)
  609.       {
  610.   #ifdef MOTOROLA
  611.         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  612. ***************
  613. *** 801,812 ****
  614.     /* First handle a simple SYMBOL_REF or LABEL_REF */
  615.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  616.       {
  617.         if (reg == 0)
  618.       abort ();
  619.   
  620. !       pic_ref = gen_rtx (MEM, Pmode,
  621. !              gen_rtx (PLUS, Pmode,
  622. !                   pic_offset_table_rtx, orig));
  623.         current_function_uses_pic_offset_table = 1;
  624.         RTX_UNCHANGING_P (pic_ref) = 1;
  625.         emit_move_insn (reg, pic_ref);
  626. --- 801,820 ----
  627.     /* First handle a simple SYMBOL_REF or LABEL_REF */
  628.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  629.       {
  630. + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  631. +       if (LEGITIMATE_BASEREL_OPERAND_P (orig))
  632. +     return orig;
  633. + #endif
  634. + 
  635.         if (reg == 0)
  636.       abort ();
  637.   
  638. !       if (flag_pic == 3)
  639. !         pic_ref = gen_rtx (PLUS, Pmode, pic_offset_table_rtx, orig);
  640. !       else
  641. !         pic_ref = gen_rtx (MEM, Pmode,
  642. !                gen_rtx (PLUS, Pmode,
  643. !                     pic_offset_table_rtx, orig));
  644.         current_function_uses_pic_offset_table = 1;
  645.         RTX_UNCHANGING_P (pic_ref) = 1;
  646.         emit_move_insn (reg, pic_ref);
  647. ***************
  648. *** 1859,1864 ****
  649. --- 1867,1875 ----
  650.         output_address (XEXP (op, 0));
  651.         if (letter == 'd' && ! TARGET_68020
  652.         && CONSTANT_ADDRESS_P (XEXP (op, 0))
  653. +       && !(TARGET_PC_REL && GET_CODE (XEXP (op, 0)) == SYMBOL_REF
  654. +            && SYMBOL_REF_FLAG (XEXP (op, 0))
  655. +            && !SYMBOL_REF_USED (XEXP (op, 0)))
  656.         && !(GET_CODE (XEXP (op, 0)) == CONST_INT
  657.              && INTVAL (XEXP (op, 0)) < 0x8000
  658.              && INTVAL (XEXP (op, 0)) >= -0x8000))
  659. ***************
  660. *** 2166,2171 ****
  661. --- 2177,2184 ----
  662.                 fprintf (file, ":w");
  663.               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  664.                 fprintf (file, ":l");
  665. +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  666. +               fprintf (file, ":w");
  667.             }
  668.           if (addr != 0 && ireg != 0)
  669.             {
  670. ***************
  671. *** 2243,2248 ****
  672. --- 2256,2273 ----
  673.           fprintf (file, "%d:w", INTVAL (addr));
  674.   #endif
  675.         }
  676. +     else if (TARGET_PC_REL && GET_CODE (addr) == SYMBOL_REF
  677. +          && SYMBOL_REF_FLAG (addr) && !SYMBOL_REF_USED (addr))
  678. +       {
  679. + #ifdef MOTOROLA
  680. +         output_addr_const (file, addr);
  681. +         fputs ("(pc)", file);
  682. + #else
  683. +         fputs ("pc@(", file);
  684. +         output_addr_const (file, addr);
  685. +         putc (')', file);
  686. + #endif
  687. +       }
  688.       else
  689.         {
  690.           output_addr_const (file, addr);
  691. ***************
  692. *** 2309,2311 ****
  693. --- 2334,2352 ----
  694.   
  695.     return 0;
  696.   }
  697. + 
  698. + #ifdef ENCODE_SECTION_INFO
  699. + /* Does operand (which is a symbolic_operand) live in text space? If
  700. +    so SYMBOL_REF_FLAG, which is set by ENCODE_SECTION_INFO, will be true.*/
  701. + 
  702. + int
  703. + read_only_operand (operand)
  704. +      rtx operand;
  705. + {
  706. +   if (GET_CODE (operand) == CONST)
  707. +     operand = XEXP (XEXP (operand, 0), 0);
  708. +   if (GET_CODE (operand) == SYMBOL_REF)
  709. +     return SYMBOL_REF_FLAG (operand) || CONSTANT_POOL_ADDRESS_P (operand);
  710. +   return 1;
  711. + }
  712. + #endif
  713. diff -rc gcc-2.5.0/config/m68k/m68k.h /usr1/bammi/sun/usr2/gcc/config/m68k/m68k.h
  714. *** gcc-2.5.0/config/m68k/m68k.h    Mon Nov 15 11:07:54 1993
  715. --- /usr1/bammi/sun/usr2/gcc/config/m68k/m68k.h    Mon Nov 15 14:48:57 1993
  716. ***************
  717. *** 92,97 ****
  718. --- 92,103 ----
  719.   /* Use the 68040-only fp instructions (-m68040).  */
  720.   #define TARGET_68040_ONLY (target_flags & 01000)
  721.   
  722. + /* Use PC-relative addressing for refs to read-only data */
  723. + #define TARGET_PC_REL (target_flags & 02000)
  724. + 
  725. + /* Use base-relative addressing for refs to data&bss segments */
  726. + #define TARGET_BASE_REL (target_flags & 04000)
  727. + 
  728.   /* Macro to define tables used to set the flags.
  729.      This is a list in braces of pairs in braces,
  730.      each pair being { "NAME", VALUE }
  731. ***************
  732. *** 121,126 ****
  733. --- 127,136 ----
  734.       { "68030", -01400},                \
  735.       { "68030", 5},                \
  736.       { "68040", 01007},                \
  737. +     { "pcrel", 02000},                \
  738. +     { "nopcrel", -02000},            \
  739. +     { "baserel", 04000},            \
  740. +     { "nobaserel", -04000},            \
  741.       { "68851", 0},    /* Affects *_SPEC and/or GAS.  */    \
  742.       { "no-68851", 0},    /* Affects *_SPEC and/or GAS.  */    \
  743.       { "68302", 0},    /* Affects *_SPEC and/or GAS.  */    \
  744. ***************
  745. *** 143,154 ****
  746. --- 153,166 ----
  747.     if (! TARGET_68020 && flag_pic == 2)    \
  748.       error("-fPIC is not currently supported on the 68000 or 68010\n");    \
  749.     SUBTARGET_OVERRIDE_OPTIONS        \
  750. +   if (TARGET_BASE_REL) flag_pic = 3;    \
  751.   }
  752.   #else
  753.   #define OVERRIDE_OPTIONS        \
  754.   {                    \
  755.     if (! TARGET_68020 && flag_pic == 2)    \
  756.       error("-fPIC is not currently supported on the 68000 or 68010\n");    \
  757. +   if (TARGET_BASE_REL) flag_pic = 3;    \
  758.     SUBTARGET_OVERRIDE_OPTIONS        \
  759.   }
  760.   #endif /* defined SUPPORT_SUN_FPA */
  761. ***************
  762. *** 356,361 ****
  763. --- 368,376 ----
  764.   {                                               \
  765.     if (flag_pic)                                 \
  766.       fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  767. +   /* prevent saving/restoring of the base reg */ \
  768. +   if (flag_pic == 3)                 \
  769. +     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  770.   }
  771.   
  772.   #else /* defined SUPPORT_SUN_FPA */
  773. ***************
  774. *** 380,385 ****
  775. --- 395,403 ----
  776.       }                         \
  777.     if (flag_pic)                                 \
  778.       fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  779. +   /* prevent saving/restoring of the base reg */ \
  780. +   if (flag_pic == 3)                 \
  781. +     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  782.   }
  783.   
  784.   #endif /* defined SUPPORT_SUN_FPA */
  785. ***************
  786. *** 1155,1160 ****
  787. --- 1173,1180 ----
  788.          && GET_CODE (XEXP (X, 1)) == CONST_INT                \
  789.          && ((unsigned) INTVAL (XEXP (X, 1)) + 0x8000) < 0x10000)        \
  790.      || (GET_CODE (X) == PLUS && XEXP (X, 0) == pic_offset_table_rtx     \
  791. +        && flag_pic == 3 && CONSTANT_ADDRESS_P (XEXP (X, 1)))        \
  792. +    || (GET_CODE (X) == PLUS && XEXP (X, 0) == pic_offset_table_rtx     \
  793.          && flag_pic && GET_CODE (XEXP (X, 1)) == SYMBOL_REF)        \
  794.      || (GET_CODE (X) == PLUS && XEXP (X, 0) == pic_offset_table_rtx     \
  795.          && flag_pic && GET_CODE (XEXP (X, 1)) == LABEL_REF))        \
  796. ***************
  797. *** 1221,1227 ****
  798.   #define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR)                \
  799.   { GO_IF_NONINDEXED_ADDRESS (X, ADDR);                    \
  800.     GO_IF_INDEXED_ADDRESS (X, ADDR);                    \
  801. !   if (flag_pic && MODE == CASE_VECTOR_MODE && GET_CODE (X) == PLUS    \
  802.         && LEGITIMATE_INDEX_P (XEXP (X, 0))                \
  803.         && GET_CODE (XEXP (X, 1)) == LABEL_REF)                \
  804.       goto ADDR; }
  805. --- 1241,1247 ----
  806.   #define GO_IF_LEGITIMATE_ADDRESS(MODE, X, ADDR)                \
  807.   { GO_IF_NONINDEXED_ADDRESS (X, ADDR);                    \
  808.     GO_IF_INDEXED_ADDRESS (X, ADDR);                    \
  809. !   if ((flag_pic && flag_pic < 3) && MODE == CASE_VECTOR_MODE && GET_CODE (X) == PLUS    \
  810.         && LEGITIMATE_INDEX_P (XEXP (X, 0))                \
  811.         && GET_CODE (XEXP (X, 1)) == LABEL_REF)                \
  812.       goto ADDR; }
  813. diff -rc gcc-2.5.0/config/m68k/m68k.md /usr1/bammi/sun/usr2/gcc/config/m68k/m68k.md
  814. *** gcc-2.5.0/config/m68k/m68k.md    Tue Dec  7 09:35:51 1993
  815. --- /usr1/bammi/sun/usr2/gcc/config/m68k/m68k.md    Sun Dec  5 14:22:11 1993
  816. ***************
  817. *** 716,728 ****
  818.   {
  819.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  820.       {
  821. !       /* The source is an address which requires PIC relocation.  
  822. !          Call legitimize_pic_address with the source, mode, and a relocation
  823. !          register (a new pseudo, or the final destination if reload_in_progress
  824. !          is set).   Then fall through normally */
  825. !       extern rtx legitimize_pic_address();
  826. !       rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  827. !       operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  828.       }
  829.   }")
  830.   
  831. --- 716,733 ----
  832.   {
  833.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  834.       {
  835. ! #ifdef LEGITIMATE_BASEREL_OPERAND_P
  836. !       if (flag_pic != 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  837. ! #endif
  838. !       {
  839. !         /* The source is an address which requires PIC relocation.  
  840. !            Call legitimize_pic_address with the source, mode, and a relocation
  841. !            register (a new pseudo, or the final destination if reload_in_progress
  842. !            is set).   Then fall through normally */
  843. !         extern rtx legitimize_pic_address();
  844. !         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  845. !         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  846. !       }
  847.       }
  848.   }")
  849.   
  850. ***************
  851. *** 4858,4864 ****
  852.     ""
  853.     "
  854.   {
  855. !   if (flag_pic && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  856.   #ifdef MOTOROLA
  857.       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  858.   #else
  859. --- 4863,4869 ----
  860.     ""
  861.     "
  862.   {
  863. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  864.   #ifdef MOTOROLA
  865.       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  866.   #else
  867. ***************
  868. *** 4873,4879 ****
  869.        (match_operand:SI 1 "general_operand" "g"))]
  870.     ;; Operand 1 not really used on the m68000.
  871.   
  872. !   "! flag_pic"
  873.     "*
  874.   #ifdef MOTOROLA
  875.     return \"jsr %0\";
  876. --- 4878,4884 ----
  877.        (match_operand:SI 1 "general_operand" "g"))]
  878.     ;; Operand 1 not really used on the m68000.
  879.   
  880. !   "(! flag_pic || flag_pic == 3)"
  881.     "*
  882.   #ifdef MOTOROLA
  883.     return \"jsr %0\";
  884. ***************
  885. *** 4888,4894 ****
  886.        (match_operand:SI 1 "general_operand" "g"))]
  887.     ;; Operand 1 not really used on the m68000.
  888.   
  889. !   "flag_pic"
  890.     "*
  891.   #ifdef HPUX_ASM
  892.     return \"bsr %0\";
  893. --- 4893,4899 ----
  894.        (match_operand:SI 1 "general_operand" "g"))]
  895.     ;; Operand 1 not really used on the m68000.
  896.   
  897. !   "(flag_pic && flag_pic < 3)"
  898.     "*
  899.   #ifdef HPUX_ASM
  900.     return \"bsr %0\";
  901. ***************
  902. *** 4913,4919 ****
  903.     ""
  904.     "
  905.   {
  906. !   if (flag_pic && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  907.   #ifdef MOTOROLA
  908.       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  909.   #else
  910. --- 4918,4924 ----
  911.     ""
  912.     "
  913.   {
  914. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  915.   #ifdef MOTOROLA
  916.       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  917.   #else
  918. ***************
  919. *** 4928,4934 ****
  920.       (call (match_operand:QI 1 "memory_operand" "o")
  921.             (match_operand:SI 2 "general_operand" "g")))]
  922.     ;; Operand 2 not really used on the m68000.
  923. !   "! flag_pic"
  924.     "*
  925.   #ifdef MOTOROLA
  926.     return \"jsr %1\";
  927. --- 4933,4939 ----
  928.       (call (match_operand:QI 1 "memory_operand" "o")
  929.             (match_operand:SI 2 "general_operand" "g")))]
  930.     ;; Operand 2 not really used on the m68000.
  931. !   "(! flag_pic || flag_pic == 3)"
  932.     "*
  933.   #ifdef MOTOROLA
  934.     return \"jsr %1\";
  935. ***************
  936. *** 4943,4949 ****
  937.       (call (match_operand:QI 1 "memory_operand" "o")
  938.             (match_operand:SI 2 "general_operand" "g")))]
  939.     ;; Operand 2 not really used on the m68000.
  940. !   "flag_pic"
  941.     "*
  942.   #ifdef HPUX_ASM
  943.     return \"bsr %1\";
  944. --- 4948,4954 ----
  945.       (call (match_operand:QI 1 "memory_operand" "o")
  946.             (match_operand:SI 2 "general_operand" "g")))]
  947.     ;; Operand 2 not really used on the m68000.
  948. !   "(flag_pic && flag_pic < 3)"
  949.     "*
  950.   #ifdef HPUX_ASM
  951.     return \"bsr %1\";
  952. *** gcc-2.5.0/cp-cvt.c    Sun Nov 28 21:58:19 1993
  953. --- /usr1/bammi/sun/usr2/gcc/cp-cvt.c    Sun Nov 28 21:51:30 1993
  954. ***************
  955. *** 264,269 ****
  956. --- 264,272 ----
  957.       return error_mark_node;
  958.         if (binfo == NULL_TREE)
  959.       return error_not_base_type (target_type, argtype);
  960. +       if (binfo == 0) {
  961. +         return error_mark_node;
  962. +       } else
  963.         basetype = BINFO_TYPE (binfo);
  964.       }
  965.   
  966. diff -rc gcc-2.5.0/cp-lex.c /usr1/bammi/sun/usr2/gcc/cp-lex.c
  967. *** gcc-2.5.0/cp-lex.c    Sun Nov 28 21:58:25 1993
  968. --- /usr1/bammi/sun/usr2/gcc/cp-lex.c    Sun Nov 28 21:51:42 1993
  969. ***************
  970. *** 3473,3479 ****
  971.           tree type = double_type_node;
  972.           char f_seen = 0;
  973.           char l_seen = 0;
  974. !         int garbage_chars = 0, exceeds_double = 0;
  975.           REAL_VALUE_TYPE value;
  976.           jmp_buf handler;
  977.   
  978. --- 3473,3479 ----
  979.           tree type = double_type_node;
  980.           char f_seen = 0;
  981.           char l_seen = 0;
  982. !         int garbage_chars = 0;
  983.           REAL_VALUE_TYPE value;
  984.           jmp_buf handler;
  985.   
  986. ***************
  987. *** 3523,3581 ****
  988.             case 'f': case 'F':
  989.               type = float_type_node;
  990.               value = REAL_VALUE_ATOF (token_buffer, TYPE_MODE (type));
  991. -             if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  992. -             && REAL_VALUE_ISINF (value) && pedantic)
  993. -               pedwarn ("floating point number exceeds range of `float'");
  994.               garbage_chars = -1;
  995.               break;
  996.   
  997.             case 'l': case 'L':
  998.               type = long_double_type_node;
  999.               value = REAL_VALUE_ATOF (token_buffer, TYPE_MODE (type));
  1000. -             if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  1001. -             && REAL_VALUE_ISINF (value) && pedantic)
  1002. -               pedwarn (
  1003. -                    "floating point number exceeds range of `long double'");
  1004.               garbage_chars = -1;
  1005.               break;
  1006.   
  1007.             default:
  1008.               value = REAL_VALUE_ATOF (token_buffer, TYPE_MODE (type));
  1009. -             if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  1010. -             && REAL_VALUE_ISINF (value) && pedantic)
  1011. -               pedwarn ("floating point number exceeds range of `double'");
  1012.             }
  1013. !         set_float_handler (NULL);
  1014.             }
  1015.   #ifdef ERANGE
  1016. !         if (errno == ERANGE && !flag_traditional && pedantic)
  1017.             {
  1018. !         char *p1 = token_buffer;
  1019. !         /* Check for "0.0" and variants;
  1020. !            SunOS 4 spuriously returns ERANGE for them.  */
  1021. !         while (*p1 == '0') p1++;
  1022. !         if (*p1 == '.')
  1023. !             {
  1024. !             p1++;
  1025. !             while (*p1 == '0') p1++;
  1026. !             }
  1027. !         if (*p1 == 'e' || *p1 == 'E')
  1028. !           {
  1029. !             /* with significand==0, ignore the exponent */
  1030. !             p1++;
  1031. !             while (*p1 != 0) p1++;
  1032. !           }
  1033. !           /* ERANGE is also reported for underflow,
  1034. !              so test the value to distinguish overflow from that.  */
  1035. !         if (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  1036. !             && (REAL_VALUES_LESS (dconst1, value)
  1037. !             || REAL_VALUES_LESS (value, dconstm1)))
  1038. !           {
  1039. !             pedwarn ("floating point number exceeds range of `double'");
  1040. !             exceeds_double = 1;
  1041. !           }
  1042.             }
  1043. - #endif
  1044.           /* Note: garbage_chars is -1 if first char is *not* garbage.  */
  1045.           while (isalnum (c))
  1046.             {
  1047. --- 3523,3557 ----
  1048.             case 'f': case 'F':
  1049.               type = float_type_node;
  1050.               value = REAL_VALUE_ATOF (token_buffer, TYPE_MODE (type));
  1051.               garbage_chars = -1;
  1052.               break;
  1053.   
  1054.             case 'l': case 'L':
  1055.               type = long_double_type_node;
  1056.               value = REAL_VALUE_ATOF (token_buffer, TYPE_MODE (type));
  1057.               garbage_chars = -1;
  1058.               break;
  1059.   
  1060.             default:
  1061.               value = REAL_VALUE_ATOF (token_buffer, TYPE_MODE (type));
  1062.             }
  1063. !         set_float_handler (NULL_PTR);
  1064.             }
  1065. +         if (pedantic
  1066. +         && (REAL_VALUE_ISINF (value)
  1067.   #ifdef ERANGE
  1068. !             || (TARGET_FLOAT_FORMAT != IEEE_FLOAT_FORMAT
  1069. !             && errno == ERANGE
  1070. !             /* ERANGE is also reported for underflow, so test the
  1071. !                value to distinguish overflow from that.  */
  1072. !             && (REAL_VALUES_LESS (dconst1, value)
  1073. !                 || REAL_VALUES_LESS (value, dconstm1)))
  1074. ! #endif
  1075. !             ))
  1076.             {
  1077. !         pedwarn ("floating point number exceeds range of `%s'",
  1078. !              IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type))));
  1079.             }
  1080.           /* Note: garbage_chars is -1 if first char is *not* garbage.  */
  1081.           while (isalnum (c))
  1082.             {
  1083. diff -rc gcc-2.5.0/cp-parse.y /usr1/bammi/sun/usr2/gcc/cp-parse.y
  1084. *** gcc-2.5.0/cp-parse.y    Sun Nov 28 21:58:27 1993
  1085. --- /usr1/bammi/sun/usr2/gcc/cp-parse.y    Sun Nov 28 21:58:36 1993
  1086. ***************
  1087. *** 1127,1134 ****
  1088.             else if (TREE_CODE ($2) == TREE_LIST)
  1089.                   {
  1090.                 tree t = TREE_VALUE ($2);
  1091. !               if (t != NULL_TREE
  1092. !               && TREE_CODE (TREE_TYPE (t)) == FUNCTION_TYPE)
  1093.               pedwarn ("ANSI C++ forbids using sizeof() on a function");
  1094.               }
  1095.             $$ = c_sizeof (TREE_TYPE ($2)); }
  1096. --- 1127,1134 ----
  1097.             else if (TREE_CODE ($2) == TREE_LIST)
  1098.                   {
  1099.                 tree t = TREE_VALUE ($2);
  1100. !               if (t != NULL_TREE && 
  1101. !                   ((TREE_TYPE( t) == 0) || TREE_CODE (TREE_TYPE (t)) == FUNCTION_TYPE))
  1102.               pedwarn ("ANSI C++ forbids using sizeof() on a function");
  1103.               }
  1104.             $$ = c_sizeof (TREE_TYPE ($2)); }
  1105. ***************
  1106. *** 1919,1924 ****
  1107. --- 1919,1935 ----
  1108.           warning ("`%s' attribute directive ignored",
  1109.                IDENTIFIER_POINTER ($1));
  1110.         $$ = $1; }
  1111. +     | TYPE_QUAL
  1112. +     | IDENTIFIER '(' IDENTIFIER ')'
  1113. +     { /* If not "mode (m)", then issue warning.  */
  1114. +       if (strcmp (IDENTIFIER_POINTER ($1), "mode") != 0)
  1115. +         {
  1116. +           warning ("`%s' attribute directive ignored",
  1117. +                IDENTIFIER_POINTER ($1));
  1118. +           $$ = $1;
  1119. +         }
  1120. +       else
  1121. +         $$ = tree_cons ($1, $3, NULL_TREE); }
  1122.       | IDENTIFIER '(' CONSTANT ')'
  1123.       { /* if not "aligned(n)", then issue warning */
  1124.         if (strcmp (IDENTIFIER_POINTER ($1), "aligned") != 0
  1125. *** gcc-2.5.0/cp-tree.c    Tue Dec  7 09:36:02 1993
  1126. --- /usr1/bammi/sun/usr2/gcc/cp-tree.c    Sun Dec  5 14:22:21 1993
  1127. ***************
  1128. *** 1676,1681 ****
  1129. --- 1676,1682 ----
  1130.     print_class_statistics ();
  1131.   }
  1132.   
  1133. + #ifndef atarist
  1134.   /* This is used by the `assert' macro.  It is provided in libgcc.a,
  1135.      which `cc' doesn't know how to link.  Note that the C++ front-end
  1136.      no longer actually uses the `assert' macro (instead, it calls
  1137. ***************
  1138. *** 1698,1703 ****
  1139. --- 1699,1705 ----
  1140.     fflush (stderr);
  1141.     abort ();
  1142.   }
  1143. + #endif
  1144.   
  1145.   /* Return, as an INTEGER_CST node, the number of elements for
  1146.      TYPE (which is an ARRAY_TYPE).  This counts only elements of the top array. */
  1147. diff -rc gcc-2.5.0/dbxout.c /usr1/bammi/sun/usr2/gcc/dbxout.c
  1148. *** gcc-2.5.0/dbxout.c    Tue Dec 14 10:45:45 1993
  1149. --- /usr1/bammi/sun/usr2/gcc/dbxout.c    Tue Dec 14 10:37:54 1993
  1150. ***************
  1151. *** 471,476 ****
  1152. --- 471,482 ----
  1153.        and output them all, except for those already output.  */
  1154.   
  1155.     dbxout_typedefs (syms);
  1156. + 
  1157. +   /* Make sure that gdb extensions, if desired, are used immediately for C++. */
  1158. + 
  1159. +   if (use_gnu_debug_info_extensions
  1160. +       && strcmp (lang_identify (), "cplusplus") == 0)
  1161. +     have_used_extensions = 1;
  1162.   }
  1163.   
  1164.   /* Output any typedef names for types described by TYPE_DECLs in SYMS,
  1165. *** gcc-2.5.0/gcc.c    Thu Jan 27 15:20:31 1994
  1166. --- /usr1/bammi/sun/usr2/gcc/gcc.c    Thu Jan 27 15:21:52 1994
  1167. ***************
  1168. *** 30,35 ****
  1169. --- 30,44 ----
  1170.   Once it knows which kind of compilation to perform, the procedure for
  1171.   compilation is specified by a string called a "spec".  */
  1172.   
  1173. + #ifdef CROSSATARI
  1174. + #ifdef atarist
  1175. + #undef atarist
  1176. + #endif
  1177. + #ifdef atariminix
  1178. + #undef atariminix
  1179. + #endif
  1180. + #endif
  1181. +   
  1182.   #include <sys/types.h>
  1183.   #include <ctype.h>
  1184.   #include <signal.h>
  1185. ***************
  1186. *** 40,45 ****
  1187. --- 49,56 ----
  1188.   #include "obstack.h"
  1189.   #include "gvarargs.h"
  1190.   #include <stdio.h>
  1191. + #include <string.h>
  1192. +     /* if your supplier still does'nt have string.h, shoot him.. */
  1193.   
  1194.   #ifndef R_OK
  1195.   #define R_OK 4
  1196. ***************
  1197. *** 65,71 ****
  1198.   #define NULL_PTR ((GENERIC_PTR)0)
  1199.   #endif
  1200.   
  1201. ! #ifdef USG
  1202.   #define vfork fork
  1203.   #endif /* USG */
  1204.   
  1205. --- 76,82 ----
  1206.   #define NULL_PTR ((GENERIC_PTR)0)
  1207.   #endif
  1208.   
  1209. ! #if (defined(USG) || defined(atariminix))
  1210.   #define vfork fork
  1211.   #endif /* USG */
  1212.   
  1213. ***************
  1214. *** 97,102 ****
  1215. --- 108,124 ----
  1216.   #define PATH_SEPARATOR ':'
  1217.   #endif
  1218.   
  1219. + #ifdef CROSSATARI
  1220. + #include <ctype.h>
  1221. + #endif
  1222. + 
  1223. + #ifdef atarist
  1224. + #include <osbind.h>
  1225. + #include <ctype.h>
  1226. + #include <fcntl.h>        /* fgth, for redirection of stderr */
  1227. + long _stksize = 8192;
  1228. + #endif
  1229. + 
  1230.   #define obstack_chunk_alloc xmalloc
  1231.   #define obstack_chunk_free free
  1232.   
  1233. ***************
  1234. *** 161,167 ****
  1235. --- 183,191 ----
  1236.      pass the compiler in building the list of pointers to constructors
  1237.      and destructors.  */
  1238.   
  1239. + #if (!(defined(CROSSATARI) || defined(atarist)))
  1240.   static struct obstack collect_obstack;
  1241. + #endif
  1242.   
  1243.   extern char *version_string;
  1244.   
  1245. ***************
  1246. *** 462,468 ****
  1247.              %{aux-info*}\
  1248.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1249.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1250. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1251.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1252.                         %{!pipe:%g.s} %A\n }}}}"},
  1253.     {"-",
  1254. --- 486,492 ----
  1255.              %{aux-info*}\
  1256.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1257.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1258. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1259.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1260.                         %{!pipe:%g.s} %A\n }}}}"},
  1261.     {"-",
  1262. ***************
  1263. *** 497,503 ****
  1264.              %{aux-info*}\
  1265.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1266.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1267. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1268.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1269.                         %{!pipe:%g.s} %A\n }}}}"},
  1270.     {".h", "@c-header"},
  1271. --- 521,527 ----
  1272.              %{aux-info*}\
  1273.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1274.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1275. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1276.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1277.                         %{!pipe:%g.s} %A\n }}}}"},
  1278.     {".h", "@c-header"},
  1279. ***************
  1280. *** 533,539 ****
  1281.              %{aux-info*}\
  1282.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1283.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1284. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1285.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1286.                         %{!pipe:%g.s} %A\n }}}}"},
  1287.     {".i", "@cpp-output"},
  1288. --- 557,563 ----
  1289.              %{aux-info*}\
  1290.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1291.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1292. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1293.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1294.                         %{!pipe:%g.s} %A\n }}}}"},
  1295.     {".i", "@cpp-output"},
  1296. ***************
  1297. *** 544,550 ****
  1298.       %{aux-info*}\
  1299.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1300.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1301. !     %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1302.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %{!pipe:%g.s} %A\n }"},
  1303.     {".ii", "@c++-cpp-output"},
  1304.     {"@c++-cpp-output",
  1305. --- 568,574 ----
  1306.       %{aux-info*}\
  1307.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1308.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1309. !     %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1310.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %{!pipe:%g.s} %A\n }"},
  1311.     {".ii", "@c++-cpp-output"},
  1312.     {"@c++-cpp-output",
  1313. ***************
  1314. *** 554,567 ****
  1315.           %{aux-info*}\
  1316.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1317.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1318. !        %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1319.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1320.              %{!pipe:%g.s} %A\n }"},
  1321.     {".s", "@assembler"},
  1322.     {"@assembler",
  1323. !    "%{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1324.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %i %A\n }"},
  1325.     {".S", "@assembler-with-cpp"},
  1326.     {"@assembler-with-cpp",
  1327.      "cpp -lang-asm %{nostdinc*} %{C} %{v} %{A*} %{I*} %{P} %I\
  1328.       %{C:%{!E:%eGNU C does not support -C without using -E}}\
  1329. --- 578,594 ----
  1330.           %{aux-info*}\
  1331.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1332.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1333. !        %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1334.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1335.              %{!pipe:%g.s} %A\n }"},
  1336.     {".s", "@assembler"},
  1337.     {"@assembler",
  1338. !    "%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1339.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %i %A\n }"},
  1340.     {".S", "@assembler-with-cpp"},
  1341. +   {".ss", "@assembler-with-cpp"},
  1342. +   {".cpp", "@assembler-with-cpp"},
  1343. +   {".spp", "@assembler-with-cpp"},
  1344.     {"@assembler-with-cpp",
  1345.      "cpp -lang-asm %{nostdinc*} %{C} %{v} %{A*} %{I*} %{P} %I\
  1346.       %{C:%{!E:%eGNU C does not support -C without using -E}}\
  1347. ***************
  1348. *** 571,577 ****
  1349.           %{traditional-cpp:-traditional}\
  1350.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C %{D*} %{U*} %{i*}\
  1351.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n",
  1352. !    "%{!M:%{!MM:%{!E:%{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1353.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1354.               %{!pipe:%g.s} %A\n }}}}"},
  1355.     {".ads", "@ada"},
  1356. --- 598,604 ----
  1357.           %{traditional-cpp:-traditional}\
  1358.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C %{D*} %{U*} %{i*}\
  1359.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n",
  1360. !    "%{!M:%{!MM:%{!E:%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1361.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1362.               %{!pipe:%g.s} %A\n }}}}"},
  1363.     {".ads", "@ada"},
  1364. ***************
  1365. *** 597,602 ****
  1366. --- 624,638 ----
  1367.   
  1368.   /* Here is the spec for running the linker, after compiling all files.  */
  1369.   
  1370. + #if (defined(CROSSATARI) || defined(atarist) || defined(atariminix))
  1371. + static char *link_command_spec = 
  1372. +  "%{!fsyntax-only: \
  1373. +     %{!c:%{!M:%{!MM:%{!E:%{!S:ld %l %X %{v} %{G} %{o*} \
  1374. +       %{A} %{d} %{e*} %{N} %{n} %{r} %{s} %{t} %{u*} %{x} %{z}\
  1375. +       %{!A:%{!nostartfiles:%{!nostdlib:%S}}} %{static:}\
  1376. +       %{L*} %{T*} %o %{!nostdlib:%L}\n }}}}}}";
  1377. + 
  1378. + #else
  1379.   /* -u* was put back because both BSD and SysV seem to support it.  */
  1380.   /* %{static:} simply prevents an error message if the target machine
  1381.      doesn't handle -static.  */
  1382. ***************
  1383. *** 630,635 ****
  1384. --- 666,672 ----
  1385.               %{L*} %D %{T*} %o %{!nostdlib:-lgcc %L -lgcc %{!A:%E}}\n }}}}}}";
  1386.   #endif
  1387.   #endif
  1388. + #endif
  1389.   
  1390.   /* A vector of options to give to the linker.
  1391.      These options are accumulated by -Xlinker and -Wl,
  1392. ***************
  1393. *** 857,862 ****
  1394. --- 894,900 ----
  1395.     *argcp = newindex;
  1396.   }
  1397.   
  1398. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  1399.   /* Read compilation specs from a file named FILENAME,
  1400.      replacing the default ones.
  1401.   
  1402. ***************
  1403. *** 996,1001 ****
  1404. --- 1034,1040 ----
  1405.   
  1406.     return p;
  1407.   }
  1408. + #endif /* ataris */
  1409.   
  1410.   /* Structure to keep track of the specs that have been defined so far.  These
  1411.      are accessed using %(specname) or %[specname] in a compiler or link spec. */
  1412. ***************
  1413. *** 1112,1117 ****
  1414. --- 1151,1163 ----
  1415.   /* Name with which this program was invoked.  */
  1416.   
  1417.   static char *programname;
  1418. + 
  1419. + #ifdef atarist
  1420. + /* Flag indicating, that stderr should be redirected for the child
  1421. +    processes */
  1422. + 
  1423. + unsigned char zflag;
  1424. + #endif
  1425.   
  1426.   /* Structures to keep track of prefixes to try when looking for files. */
  1427.   
  1428. ***************
  1429. *** 1405,1414 ****
  1430.     if (base == (char *)0)
  1431.       base = "./";
  1432.   
  1433.     len = strlen (base);
  1434.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX") + 1);
  1435.     strcpy (temp_filename, base);
  1436. !   if (len > 0 && temp_filename[len-1] != '/')
  1437.       temp_filename[len++] = '/';
  1438.     strcpy (temp_filename + len, "ccXXXXXX");
  1439.   
  1440. --- 1451,1471 ----
  1441.     if (base == (char *)0)
  1442.       base = "./";
  1443.   
  1444. + #ifdef atarist
  1445. +   {
  1446. +       char *newbase = alloca(FILENAME_MAX);
  1447. +       dos2unx(base,newbase);
  1448. +       base = newbase;
  1449. +   }
  1450. + #endif
  1451.     len = strlen (base);
  1452.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX") + 1);
  1453.     strcpy (temp_filename, base);
  1454. !   if (len > 0 && (temp_filename[len-1] != '/' 
  1455. ! #ifdef atarist
  1456. !           || temp_filename[len-1] != '\\'
  1457. ! #endif
  1458. !            ))
  1459.       temp_filename[len++] = '/';
  1460.     strcpy (temp_filename + len, "ccXXXXXX");
  1461.   
  1462. ***************
  1463. *** 1427,1432 ****
  1464. --- 1484,1490 ----
  1465.      use come from an obstack, we don't have to worry about allocating
  1466.      space for them.  */
  1467.   
  1468. + #if (!(defined(CROSSATARI) || defined(atarist)))
  1469.   #ifndef HAVE_PUTENV
  1470.   
  1471.   void
  1472. ***************
  1473. *** 1528,1533 ****
  1474. --- 1586,1592 ----
  1475.     obstack_1grow (&collect_obstack, '\0');
  1476.     putenv (obstack_finish (&collect_obstack));
  1477.   }
  1478. + #endif /* ataris */
  1479.   
  1480.   
  1481.   /* Search for NAME using the prefix list PREFIXES.  MODE is passed to
  1482. ***************
  1483. *** 1812,1817 ****
  1484. --- 1871,1877 ----
  1485.   
  1486.   #else /* not __MSDOS__ */
  1487.   
  1488. + #ifndef atarist
  1489.   static int
  1490.   pexecute (search_flag, program, argv, not_last)
  1491.        int search_flag;
  1492. ***************
  1493. *** 1900,1905 ****
  1494. --- 1960,1966 ----
  1495.       }
  1496.   }
  1497.   
  1498. + #endif /* not atarist */
  1499.   #endif /* not __MSDOS__ */
  1500.   #else /* not OS2 */
  1501.   
  1502. ***************
  1503. *** 1930,1945 ****
  1504.       {
  1505.         char *prog;        /* program name.  */
  1506.         char **argv;        /* vector of args.  */
  1507.         int pid;            /* pid of process for this command.  */
  1508.       };
  1509.   
  1510.     struct command *commands;    /* each command buffer with above info.  */
  1511.   
  1512.     /* Count # of piped commands.  */
  1513.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1514.       if (strcmp (argbuf[i], "|") == 0)
  1515.         n_commands++;
  1516. ! 
  1517.     /* Get storage for each command.  */
  1518.     commands
  1519.       = (struct command *) alloca (n_commands * sizeof (struct command));
  1520. --- 1991,2011 ----
  1521.       {
  1522.         char *prog;        /* program name.  */
  1523.         char **argv;        /* vector of args.  */
  1524. + #ifndef atarist
  1525.         int pid;            /* pid of process for this command.  */
  1526. + #endif
  1527.       };
  1528.   
  1529.     struct command *commands;    /* each command buffer with above info.  */
  1530.   
  1531. + #ifndef atarist
  1532.     /* Count # of piped commands.  */
  1533.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1534.       if (strcmp (argbuf[i], "|") == 0)
  1535.         n_commands++;
  1536. ! #else
  1537. !   n_commands = 1;
  1538. ! #endif
  1539.     /* Get storage for each command.  */
  1540.     commands
  1541.       = (struct command *) alloca (n_commands * sizeof (struct command));
  1542. ***************
  1543. *** 1954,1959 ****
  1544. --- 2020,2026 ----
  1545.     if (string)
  1546.       commands[0].argv[0] = string;
  1547.   
  1548. + #ifndef atarist
  1549.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1550.       if (strcmp (argbuf[i], "|") == 0)
  1551.         {                /* each command.  */
  1552. ***************
  1553. *** 1968,1973 ****
  1554. --- 2035,2043 ----
  1555.         commands[n_commands].argv[0] = string;
  1556.       n_commands++;
  1557.         }
  1558. + #else
  1559. +   n_commands = 1;
  1560. + #endif
  1561.   
  1562.     argbuf[argbuf_index] = 0;
  1563.   
  1564. ***************
  1565. *** 1983,1991 ****
  1566. --- 2053,2063 ----
  1567.         for (j = commands[i].argv; *j; j++)
  1568.           fprintf (stderr, " %s", *j);
  1569.   
  1570. + #ifndef atarist
  1571.         /* Print a pipe symbol after all but the last command.  */
  1572.         if (i + 1 != n_commands)
  1573.           fprintf (stderr, " |");
  1574. + #endif
  1575.         fprintf (stderr, "\n");
  1576.       }
  1577.         fflush (stderr);
  1578. ***************
  1579. *** 2000,2016 ****
  1580. --- 2072,2098 ----
  1581.   #endif /* DEBUG */
  1582.       }
  1583.   
  1584. + #ifndef atarist
  1585.     /* Run each piped subprocess.  */
  1586.   
  1587.     last_pipe_input = STDIN_FILE_NO;
  1588.     for (i = 0; i < n_commands; i++)
  1589.       {
  1590. + #ifndef atariminix
  1591.         char *string = commands[i].argv[0];
  1592.   
  1593.         commands[i].pid = pexecute (string != commands[i].prog,
  1594.                     string, commands[i].argv,
  1595.                     i + 1 < n_commands);
  1596.   
  1597. + #else
  1598. +       extern int execv();
  1599. +       char *string = commands[i].argv[0];
  1600. + 
  1601. +       commands[i].pid = pexecute (execv,
  1602. +                   string, commands[i].argv,
  1603. +                   i + 1 < n_commands);
  1604. + #endif
  1605.         if (string != commands[i].prog)
  1606.       free (string);
  1607.       }
  1608. ***************
  1609. *** 2057,2062 ****
  1610. --- 2139,2189 ----
  1611.         }
  1612.       return ret_code;
  1613.     }
  1614. + #else /* atarist */
  1615. +  {
  1616. +      register int iii;
  1617. +      int errfd, oldfd;
  1618. +      char **j;
  1619. + 
  1620. +      execution_count++;
  1621. + 
  1622. +      if (zflag)
  1623. +        {
  1624. +      errfd = Fopen("compile.err", 2);
  1625. +      if (errfd < __SMALLEST_VALID_HANDLE)
  1626. +        errfd = Fcreate("compile.err", 0);
  1627. +      else
  1628. +        Fseek(0L, errfd, 2);
  1629. +      if (errfd >= __SMALLEST_VALID_HANDLE)
  1630. +        {
  1631. +          oldfd = Fdup (2);
  1632. +          Fforce(2, errfd);
  1633. +        }
  1634. +      else
  1635. +        {
  1636. +          error("cannot open %s", "compile.err");
  1637. +          zflag = 0;        /* no redirection */
  1638. +        }
  1639. +        }
  1640. +      for (i = 0; i < n_commands ; i++)
  1641. +      {
  1642. +          j = commands[i].argv;
  1643. +          iii = spawnve(0, j[0], j, NULL);
  1644. +      if(iii != 0)
  1645. +          break;
  1646. +      }
  1647. +      if (zflag)
  1648. +        {
  1649. +      Fforce(2, oldfd);
  1650. +      Fclose(oldfd);
  1651. +      Fclose(errfd);
  1652. +        }
  1653. +      if (iii != 0)
  1654. +        return -1;
  1655. +      else
  1656. +        return 0;
  1657. +  }
  1658. + #endif /* atarist */  
  1659.   }
  1660.   
  1661.   /* Find all the switches given to us
  1662. ***************
  1663. *** 2120,2125 ****
  1664. --- 2247,2253 ----
  1665.   
  1666.     /* Set up the default search paths.  */
  1667.   
  1668. + #ifndef CROSSATARI
  1669.     if (gcc_exec_prefix)
  1670.       {
  1671.         add_prefix (&exec_prefix, gcc_exec_prefix, 0, 0, NULL_PTR);
  1672. ***************
  1673. *** 2194,2199 ****
  1674. --- 2322,2328 ----
  1675.           endp++;
  1676.       }
  1677.       }
  1678. + #endif /* CROSSATARI */
  1679.   
  1680.     /* Use LPATH like LIBRARY_PATH (for the CMU build program).  */
  1681.     temp = getenv ("LPATH");
  1682. ***************
  1683. *** 2402,2407 ****
  1684. --- 2531,2542 ----
  1685.             n_switches++;
  1686.             break;
  1687.           }
  1688. + #ifdef atarist
  1689. +         case 'z':    /* redirect stderr to a file */
  1690. +           zflag++;
  1691. +           n_switches++;
  1692. +           break;
  1693. + #endif
  1694.           default:
  1695.             n_switches++;
  1696.   
  1697. ***************
  1698. *** 2421,2431 ****
  1699. --- 2556,2577 ----
  1700.        (such as cpp) rather than those of the host system.  */
  1701.     /* Use 2 as fourth arg meaning try just the machine as a suffix,
  1702.        as well as trying the machine and the version.  */
  1703. + #if (defined(atarist) || defined(CROSSATARI) || defined(WEIRD))
  1704. + /* NB defined(WEIRD) should not really be there, its only for my weird setup */
  1705. +   /* We are not using machine_suffix here, so do not make */
  1706. +   /* these prefixes available only when we have one       */
  1707. +   add_prefix (&exec_prefix, standard_exec_prefix, 0, 0, NULL_PTR);
  1708. +   add_prefix (&exec_prefix, standard_exec_prefix_1, 0, 0, NULL_PTR);
  1709. + 
  1710. +   add_prefix (&startfile_prefix, standard_exec_prefix, 0, 0, NULL_PTR);
  1711. +   add_prefix (&startfile_prefix, standard_exec_prefix_1, 0, 0, NULL_PTR);
  1712. + #else
  1713.     add_prefix (&exec_prefix, standard_exec_prefix, 0, 2, NULL_PTR);
  1714.     add_prefix (&exec_prefix, standard_exec_prefix_1, 0, 2, NULL_PTR);
  1715.   
  1716.     add_prefix (&startfile_prefix, standard_exec_prefix, 0, 1, NULL_PTR);
  1717.     add_prefix (&startfile_prefix, standard_exec_prefix_1, 0, 1, NULL_PTR);
  1718. + #endif /* (defined(atarist) || defined(CROSSATARI)) */
  1719.   
  1720.     tooldir_prefix = concat (tooldir_base_prefix, spec_machine, "/");
  1721.   
  1722. ***************
  1723. *** 2667,2674 ****
  1724. --- 2813,2822 ----
  1725.        If -pipe, this forces out the last command if it ended in `|'.  */
  1726.     if (value == 0)
  1727.       {
  1728. + #ifndef atarist
  1729.         if (argbuf_index > 0 && !strcmp (argbuf[argbuf_index - 1], "|"))
  1730.       argbuf_index--;
  1731. + #endif
  1732.   
  1733.         if (argbuf_index > 0)
  1734.       value = execute ();
  1735. ***************
  1736. *** 2706,2711 ****
  1737. --- 2854,2903 ----
  1738.          Otherwise, NL, SPC, TAB and % are special.  */
  1739.       switch (inswitch ? 'a' : c)
  1740.         {
  1741. + #if (defined(atarist) || defined(CROSSATARI))
  1742. + /* this stuff added by jrd.  if see '$', expect name of env var, delimited
  1743. +    by '$'.  Find it's value, and subst it in.
  1744. + 
  1745. +    modified by ERS to only collect things that look like names; this
  1746. +    saves e.g. the -$ arg. to cpp from getting munged */
  1747. + 
  1748. +       case '$':
  1749. +       {
  1750. +     char varname[32];        /* should be enough */
  1751. +     char * value;            /* deciphered value string */
  1752. +     char *temp;
  1753. +     int i;
  1754. +     extern char *getenv();
  1755. +     
  1756. +     for (i = 0 ; ((c = *p) != '$') && isalnum(c) && i < 31 ; i++, p++)
  1757. +         varname[i] = c;
  1758. +     varname[i] = '\0';
  1759. +     if (i > 0) /* ++jrb fix */
  1760. +     {
  1761. +                  ++p;    /* skip trailing '$' */
  1762. +         value = getenv(varname); /* ++jrb fix */
  1763. +         if (value)
  1764. +         { /* if value is a path, only consider 1'st component */
  1765. + #ifdef atarist
  1766. +             if((temp = index(value, ',')) == NULL)
  1767. +                 temp = index(value, ';');
  1768. + #else
  1769. +             temp = index(value, ':');
  1770. + #endif
  1771. +             obstack_grow (&obstack, value,
  1772. +                       temp ? temp - value : strlen (value));
  1773. +         }
  1774. +         else
  1775. +           obstack_1grow (&obstack, '.'); /* a complete kludge... */
  1776. +     }
  1777. +         else
  1778. +         {
  1779. +              obstack_1grow(&obstack, '$');
  1780. +         }
  1781. +     arg_going = 1;
  1782. +       }
  1783. +      break;
  1784. + #endif /* atarist */
  1785.         case '\n':
  1786.       /* End of line: finish any pending argument,
  1787.          then run the pending command if one has been started.  */
  1788. ***************
  1789. *** 3380,3392 ****
  1790. --- 3572,3592 ----
  1791.           break;
  1792.   
  1793.         default:
  1794. + #if 1 /* atarist */
  1795. +         fprintf(stderr, "Bogus char '%c' found at pos %d of spec '%s'\n",
  1796. +         c, (p - spec - 1), spec);
  1797. + #endif
  1798.           abort ();
  1799.         }
  1800.       break;
  1801.   
  1802. + #ifndef atarist
  1803. +       /* on the atari it is important to preserve backslash in spec */
  1804. +       /* so just let it go into default case */
  1805.         case '\\':
  1806.       /* Backslash: treat next character as ordinary.  */
  1807.       c = *p++;
  1808. + #endif
  1809.   
  1810.       /* fall through */
  1811.         default:
  1812. ***************
  1813. *** 3663,3668 ****
  1814. --- 3863,3869 ----
  1815.   
  1816.   /* On fatal signals, delete all the temporary files.  */
  1817.   
  1818. + #ifndef atarist
  1819.   static void
  1820.   fatal_error (signum)
  1821.        int signum;
  1822. ***************
  1823. *** 3674,3679 ****
  1824. --- 3875,3881 ----
  1825.        so its normal effect occurs.  */
  1826.     kill (getpid (), signum);
  1827.   }
  1828. + #endif
  1829.   
  1830.   int
  1831.   main (argc, argv)
  1832. ***************
  1833. *** 3688,3693 ****
  1834. --- 3890,3898 ----
  1835.     char *specs_file;
  1836.     char *p;
  1837.   
  1838. + #ifdef atarist
  1839. +   programname = "gcc";
  1840. + #else  
  1841.     p = argv[0] + strlen (argv[0]);
  1842.     while (p != argv[0] && p[-1] != '/') --p;
  1843.     programname = p;
  1844. ***************
  1845. *** 3704,3715 ****
  1846. --- 3909,3922 ----
  1847.     if (signal (SIGPIPE, SIG_IGN) != SIG_IGN)
  1848.       signal (SIGPIPE, fatal_error);
  1849.   #endif
  1850. + #endif /* atarist */
  1851.   
  1852.     argbuf_length = 10;
  1853.     argbuf = (char **) xmalloc (argbuf_length * sizeof (char *));
  1854.   
  1855.     obstack_init (&obstack);
  1856.   
  1857. + #if (!(defined(atarist) || defined(CROSSATARI)))
  1858.     /* Set up to remember the pathname of gcc and any options
  1859.        needed for collect.  We use argv[0] instead of programname because
  1860.        we need the complete pathname.  */
  1861. ***************
  1862. *** 3717,3722 ****
  1863. --- 3924,3930 ----
  1864.     obstack_grow (&collect_obstack, "COLLECT_GCC=", sizeof ("COLLECT_GCC=")-1);
  1865.     obstack_grow (&collect_obstack, argv[0], strlen (argv[0])+1);
  1866.     putenv (obstack_finish (&collect_obstack));
  1867. + #endif
  1868.   
  1869.     /* Choose directory for temp files.  */
  1870.   
  1871. ***************
  1872. *** 3728,3733 ****
  1873. --- 3936,3950 ----
  1874.   
  1875.     process_command (argc, argv);
  1876.   
  1877. + #if (defined(atarist) || defined(CROSSATARI))
  1878. +   {
  1879. +     char *temp;
  1880. +     
  1881. +     if((temp = getenv ("GCCEXEC")))
  1882. +     add_prefix (&exec_prefix, temp, 0, 0, 0);
  1883. +   }
  1884. + #endif
  1885. +   
  1886.     /* Initialize the vector of specs to just the default.
  1887.        This means one element containing 0s, as a terminator.  */
  1888.   
  1889. ***************
  1890. *** 3735,3740 ****
  1891. --- 3952,3961 ----
  1892.     bcopy (default_compilers, compilers, sizeof default_compilers);
  1893.     n_compilers = n_default_compilers;
  1894.   
  1895. + 
  1896. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1897. +   specs_file = 0;
  1898. + #else
  1899.     /* Read specs from a file if there is one.  */
  1900.   
  1901.     machine_suffix = concat (spec_machine, "/", concat (spec_version, "/", ""));
  1902. ***************
  1903. *** 3744,3749 ****
  1904. --- 3965,3971 ----
  1905.     /* Read the specs file unless it is a default one.  */
  1906.     if (specs_file != 0 && strcmp (specs_file, "specs"))
  1907.       read_specs (specs_file);
  1908. + #endif
  1909.   
  1910.     /* If not cross-compiling, look for startfiles in the standard places.  */
  1911.     /* The fact that these are done here, after reading the specs file,
  1912. ***************
  1913. *** 3781,3787 ****
  1914.               0, 0, NULL_PTR);
  1915.         add_prefix (&startfile_prefix,
  1916.                 concat (standard_exec_prefix,
  1917. !                   machine_suffix,
  1918.                     standard_startfile_prefix),
  1919.                 0, 0, NULL_PTR);
  1920.       }               
  1921. --- 4003,4009 ----
  1922.               0, 0, NULL_PTR);
  1923.         add_prefix (&startfile_prefix,
  1924.                 concat (standard_exec_prefix,
  1925. !                   (machine_suffix)? machine_suffix : "",
  1926.                     standard_startfile_prefix),
  1927.                 0, 0, NULL_PTR);
  1928.       }               
  1929. ***************
  1930. *** 3816,3822 ****
  1931. --- 4038,4050 ----
  1932.   
  1933.     if (verbose_flag)
  1934.       {
  1935. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1936. + #include "PatchLev.h"
  1937. +       fprintf (stderr, "gcc-atariST version %s Patchlevel %s\n",
  1938. +            version_string, PatchLevel);
  1939. + #else
  1940.         fprintf (stderr, "gcc version %s\n", version_string);
  1941. + #endif
  1942.         if (n_infiles == 0)
  1943.       exit (0);
  1944.       }
  1945. ***************
  1946. *** 3864,3870 ****
  1947. --- 4092,4103 ----
  1948.   
  1949.         input_basename = input_filename;
  1950.         for (p = input_filename; *p; p++)
  1951. + #ifdef atarist
  1952. +         if (((*p == '/') || (*p == '\\')) && (*(p-1) != ':'))
  1953. +             /* allow both '\' and '/' with  our new lib */
  1954. + #else
  1955.           if (*p == '/')
  1956. + #endif
  1957.             input_basename = p + 1;
  1958.   
  1959.         /* Find a suffix starting with the last period,
  1960. ***************
  1961. *** 3927,3932 ****
  1962. --- 4160,4166 ----
  1963.         int i;
  1964.         int first_time;
  1965.   
  1966. + #if (!(defined(atarist) || defined(CROSSATARI)))
  1967.         /* Rebuild the COMPILER_PATH and LIBRARY_PATH environment variables
  1968.        for collect.  */
  1969.         putenv_from_prefixes (&exec_prefix, "COMPILER_PATH=");
  1970. ***************
  1971. *** 3957,3962 ****
  1972. --- 4191,4197 ----
  1973.       }
  1974.         obstack_grow (&collect_obstack, "\0", 1);
  1975.         putenv (obstack_finish (&collect_obstack));
  1976. + #endif
  1977.   
  1978.         value = do_spec (link_command_spec);
  1979.         if (value < 0)
  1980. *** gcc-2.5.0/getpwd.c    Tue Sep 21 17:35:41 1993
  1981. --- /usr1/bammi/sun/usr2/gcc/getpwd.c    Fri May 21 08:35:37 1993
  1982. ***************
  1983. *** 14,20 ****
  1984.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1985.      the few exceptions to the general rule here.  */
  1986.   
  1987. ! #if !(defined (POSIX) || defined (USG) || defined (VMS))
  1988.   #include <sys/param.h>
  1989.   extern char *getwd ();
  1990.   #define getcwd(buf,len) getwd(buf)
  1991. --- 14,20 ----
  1992.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1993.      the few exceptions to the general rule here.  */
  1994.   
  1995. ! #if !(defined (POSIX) || defined (USG) || defined (VMS) || defined(atarist) || defined(CROSSHPUX))
  1996.   #include <sys/param.h>
  1997.   extern char *getwd ();
  1998.   #define getcwd(buf,len) getwd(buf)
  1999. ***************
  2000. *** 48,58 ****
  2001.     if (!p && !(errno = failure_errno))
  2002.       {
  2003.         if (! ((p = getenv ("PWD")) != 0
  2004.            && *p == '/'
  2005.            && stat (p, &pwdstat) == 0
  2006.            && stat (".", &dotstat) == 0
  2007.            && dotstat.st_ino == pwdstat.st_ino
  2008. !          && dotstat.st_dev == pwdstat.st_dev))
  2009.   
  2010.       /* The shortcut didn't work.  Try the slow, ``sure'' way.  */
  2011.       for (s = GUESSPATHLEN;  ! getcwd (p = xmalloc (s), s);  s *= 2)
  2012. --- 48,61 ----
  2013.     if (!p && !(errno = failure_errno))
  2014.       {
  2015.         if (! ((p = getenv ("PWD")) != 0
  2016. + #ifndef atarist
  2017.            && *p == '/'
  2018.            && stat (p, &pwdstat) == 0
  2019.            && stat (".", &dotstat) == 0
  2020.            && dotstat.st_ino == pwdstat.st_ino
  2021. !          && dotstat.st_dev == pwdstat.st_dev
  2022. ! #endif
  2023. !          ))
  2024.   
  2025.       /* The shortcut didn't work.  Try the slow, ``sure'' way.  */
  2026.       for (s = GUESSPATHLEN;  ! getcwd (p = xmalloc (s), s);  s *= 2)
  2027. *** gcc-2.5.0/toplev.c    Tue Dec 14 10:45:57 1993
  2028. --- /usr1/bammi/sun/usr2/gcc/toplev.c    Tue Dec 14 10:38:08 1993
  2029. ***************
  2030. *** 31,37 ****
  2031.   
  2032.   #include <sys/stat.h>
  2033.   
  2034. ! #ifdef USG
  2035.   #undef FLOAT
  2036.   #include <sys/param.h>
  2037.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  2038. --- 31,37 ----
  2039.   
  2040.   #include <sys/stat.h>
  2041.   
  2042. ! #if defined(USG) || defined(CROSSHPUX)
  2043.   #undef FLOAT
  2044.   #include <sys/param.h>
  2045.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  2046. ***************
  2047. *** 41,49 ****
  2048. --- 41,57 ----
  2049.   #undef FFS  /* Some systems define this in param.h.  */
  2050.   #else
  2051.   #ifndef VMS
  2052. + #if (!(defined(atarist) || defined(atariminix)))
  2053.   #include <sys/time.h>
  2054.   #include <sys/resource.h>
  2055. + #endif /* !(atarist || atariminix) */
  2056. + #endif
  2057.   #endif
  2058. + 
  2059. + #ifdef atariminix
  2060. + #include <sys/times.h>
  2061. + /* #include <minix/const.h>, avoid dragging this in */
  2062. + #define HZ 60    /* this is the only thing needed from minix/const.h */
  2063.   #endif
  2064.   
  2065.   #include "input.h"
  2066. ***************
  2067. *** 61,66 ****
  2068. --- 69,79 ----
  2069.   #include "bytecode.h"
  2070.   #include "bc-emit.h"
  2071.   
  2072. + #ifdef atarist
  2073. + long _stksize = -1L;    /* for all sizes of ST's */
  2074. +     /* -1 means malloc from own heap and keep all  of memory */
  2075. + #endif /* atarist */
  2076. + 
  2077.   #ifdef VMS
  2078.   /* The extra parameters substantially improve the I/O performance.  */
  2079.   static FILE *
  2080. ***************
  2081. *** 792,798 ****
  2082.   int
  2083.   get_run_time ()
  2084.   {
  2085. ! #ifdef USG
  2086.     struct tms tms;
  2087.   #else
  2088.   #ifndef VMS
  2089. --- 805,814 ----
  2090.   int
  2091.   get_run_time ()
  2092.   {
  2093. ! #ifdef atarist
  2094. !   long now;
  2095. ! #else
  2096. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  2097.     struct tms tms;
  2098.   #else
  2099.   #ifndef VMS
  2100. ***************
  2101. *** 807,817 ****
  2102.       } vms_times;
  2103.   #endif
  2104.   #endif
  2105.   
  2106.     if (quiet_flag)
  2107.       return 0;
  2108.   
  2109. ! #ifdef USG
  2110.     times (&tms);
  2111.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  2112.   #else
  2113. --- 823,837 ----
  2114.       } vms_times;
  2115.   #endif
  2116.   #endif
  2117. + #endif
  2118.   
  2119.     if (quiet_flag)
  2120.       return 0;
  2121.   
  2122. ! #ifdef atarist
  2123. !   return(time(NULL) * 1000000);
  2124. ! #else
  2125. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  2126.     times (&tms);
  2127.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  2128.   #else
  2129. ***************
  2130. *** 824,829 ****
  2131. --- 844,850 ----
  2132.     return (vms_times.proc_user_time + vms_times.proc_system_time) * 10000;
  2133.   #endif
  2134.   #endif
  2135. + #endif
  2136.   }
  2137.   
  2138.   #define TIMEVAR(VAR, BODY)    \
  2139. ***************
  2140. *** 1461,1466 ****
  2141. --- 1482,1488 ----
  2142.     longjmp (float_handler, 1);
  2143.   }
  2144.   
  2145. + #ifndef atarist
  2146.   /* Handler for SIGPIPE.  */
  2147.   
  2148.   static void
  2149. ***************
  2150. *** 1470,1475 ****
  2151. --- 1492,1498 ----
  2152.   {
  2153.     fatal ("output pipe has been closed");
  2154.   }
  2155. + #endif
  2156.   
  2157.   /* Strip off a legitimate source ending from the input string NAME of
  2158.      length LEN. */
  2159. ***************
  2160. *** 1523,1528 ****
  2161. --- 1546,1552 ----
  2162.     putc ('\"', asm_file);
  2163.   }
  2164.   
  2165. + #ifdef SYSV
  2166.   /* Output a file name in the form wanted by System V.  */
  2167.   
  2168.   void
  2169. ***************
  2170. *** 1553,1558 ****
  2171. --- 1577,1583 ----
  2172.   #endif
  2173.   #endif
  2174.   }
  2175. + #endif
  2176.   
  2177.   /* Routine to build language identifier for object file. */
  2178.   static void
  2179. ***************
  2180. *** 1665,1671 ****
  2181. --- 1690,1700 ----
  2182.       {
  2183.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2184.         strcpy (dumpname, dump_base_name);
  2185. + #ifndef atarist
  2186.         strcat (dumpname, ".jump");
  2187. + #else
  2188. +       strcat (dumpname, ".jmp");
  2189. + #endif
  2190.         jump_opt_dump_file = fopen (dumpname, "w");
  2191.         if (jump_opt_dump_file == 0)
  2192.       pfatal_with_name (dumpname);
  2193. ***************
  2194. *** 1687,1693 ****
  2195. --- 1716,1726 ----
  2196.       {
  2197.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2198.         strcpy (dumpname, dump_base_name);
  2199. + #ifndef atarist
  2200.         strcat (dumpname, ".loop");
  2201. + #else
  2202. +       strcat (dumpname, ".lop");
  2203. + #endif
  2204.         loop_dump_file = fopen (dumpname, "w");
  2205.         if (loop_dump_file == 0)
  2206.       pfatal_with_name (dumpname);
  2207. ***************
  2208. *** 1698,1704 ****
  2209. --- 1731,1741 ----
  2210.       {
  2211.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2212.         strcpy (dumpname, dump_base_name);
  2213. + #ifndef atarist
  2214.         strcat (dumpname, ".cse2");
  2215. + #else
  2216. +       strcat (dumpname, ".cs2");
  2217. + #endif
  2218.         cse2_dump_file = fopen (dumpname, "w");
  2219.         if (cse2_dump_file == 0)
  2220.       pfatal_with_name (dumpname);
  2221. ***************
  2222. *** 1709,1715 ****
  2223. --- 1746,1756 ----
  2224.       {
  2225.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2226.         strcpy (dumpname, dump_base_name);
  2227. + #ifndef atarist
  2228.         strcat (dumpname, ".flow");
  2229. + #else
  2230. +       strcat (dumpname, ".flo");
  2231. + #endif
  2232.         flow_dump_file = fopen (dumpname, "w");
  2233.         if (flow_dump_file == 0)
  2234.       pfatal_with_name (dumpname);
  2235. ***************
  2236. *** 1720,1726 ****
  2237. --- 1761,1771 ----
  2238.       {
  2239.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  2240.         strcpy (dumpname, dump_base_name);
  2241. + #ifndef atarist
  2242.         strcat (dumpname, ".combine");
  2243. + #else
  2244. +       strcat (dumpname, ".cmb");
  2245. + #endif
  2246.         combine_dump_file = fopen (dumpname, "w");
  2247.         if (combine_dump_file == 0)
  2248.       pfatal_with_name (dumpname);
  2249. ***************
  2250. *** 1731,1737 ****
  2251. --- 1776,1786 ----
  2252.       {
  2253.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  2254.         strcpy (dumpname, dump_base_name);
  2255. + #ifndef atarist
  2256.         strcat (dumpname, ".sched");
  2257. + #else
  2258. +       strcat (dumpname, ".sch");
  2259. + #endif
  2260.         sched_dump_file = fopen (dumpname, "w");
  2261.         if (sched_dump_file == 0)
  2262.       pfatal_with_name (dumpname);
  2263. ***************
  2264. *** 1742,1748 ****
  2265. --- 1791,1801 ----
  2266.       {
  2267.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2268.         strcpy (dumpname, dump_base_name);
  2269. + #ifndef atarist
  2270.         strcat (dumpname, ".lreg");
  2271. + #else
  2272. +       strcat (dumpname, ".lrg");
  2273. + #endif
  2274.         local_reg_dump_file = fopen (dumpname, "w");
  2275.         if (local_reg_dump_file == 0)
  2276.       pfatal_with_name (dumpname);
  2277. ***************
  2278. *** 1753,1759 ****
  2279. --- 1806,1816 ----
  2280.       {
  2281.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2282.         strcpy (dumpname, dump_base_name);
  2283. + #ifndef atarist
  2284.         strcat (dumpname, ".greg");
  2285. + #else
  2286. +       strcat (dumpname, ".grg");
  2287. + #endif
  2288.         global_reg_dump_file = fopen (dumpname, "w");
  2289.         if (global_reg_dump_file == 0)
  2290.       pfatal_with_name (dumpname);
  2291. ***************
  2292. *** 1764,1770 ****
  2293. --- 1821,1831 ----
  2294.       {
  2295.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 8);
  2296.         strcpy (dumpname, dump_base_name);
  2297. + #ifndef atarist
  2298.         strcat (dumpname, ".sched2");
  2299. + #else
  2300. +       strcat (dumpname, ".sc2");
  2301. + #endif
  2302.         sched2_dump_file = fopen (dumpname, "w");
  2303.         if (sched2_dump_file == 0)
  2304.       pfatal_with_name (dumpname);
  2305. ***************
  2306. *** 1775,1781 ****
  2307. --- 1836,1846 ----
  2308.       {
  2309.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  2310.         strcpy (dumpname, dump_base_name);
  2311. + #ifndef atarist
  2312.         strcat (dumpname, ".jump2");
  2313. + #else
  2314. +       strcat (dumpname, ".jp2");
  2315. + #endif
  2316.         jump2_opt_dump_file = fopen (dumpname, "w");
  2317.         if (jump2_opt_dump_file == 0)
  2318.       pfatal_with_name (dumpname);
  2319. ***************
  2320. *** 1799,1805 ****
  2321. --- 1864,1874 ----
  2322.       {
  2323.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  2324.         strcpy (dumpname, dump_base_name);
  2325. + #ifndef atarist
  2326.         strcat (dumpname, ".stack");
  2327. + #else
  2328. +       strcat (dumpname, ".stk");
  2329. + #endif
  2330.         stack_reg_dump_file = fopen (dumpname, "w");
  2331.         if (stack_reg_dump_file == 0)
  2332.       pfatal_with_name (dumpname);
  2333. ***************
  2334. *** 2931,2937 ****
  2335. --- 3000,3011 ----
  2336.     save_argv = argv;
  2337.   
  2338.     p = argv[0] + strlen (argv[0]);
  2339. + #ifndef atarist
  2340.     while (p != argv[0] && p[-1] != '/') --p;
  2341. + #else
  2342. +   while (p != argv[0] && ((p[-1] != '/') && (p[-1] != '\\') &&
  2343. +               (p[-1] != ':'))) --p;
  2344. + #endif
  2345.     progname = p;
  2346.   
  2347.   #ifdef RLIMIT_STACK
  2348. ***************
  2349. *** 2948,2956 ****
  2350. --- 3022,3032 ----
  2351.   
  2352.     signal (SIGFPE, float_signal);
  2353.   
  2354. + #ifndef atarist
  2355.   #ifdef SIGPIPE
  2356.     signal (SIGPIPE, pipe_closed);
  2357.   #endif
  2358. + #endif
  2359.   
  2360.     decl_printable_name = decl_name;
  2361.     lang_expand_expr = (struct rtx_def *(*)()) do_abort;
  2362. ***************
  2363. *** 3049,3054 ****
  2364. --- 3125,3142 ----
  2365.         else if (!strcmp (str, "dumpbase"))
  2366.           {
  2367.             dump_base_name = argv[++i];
  2368. + #ifdef atarist
  2369. +           /* dump_base_name will typically be 'foo.c' here.
  2370. +              Need to truncate at the '.', cause dots mean 
  2371. +              something here
  2372. +            */
  2373. +               {
  2374. +               char * n = dump_base_name;
  2375. +           for ( ; ((*n) && (*n != '.')) ; )
  2376. +                       n++;
  2377. +                   *n = '\0';
  2378. +           }
  2379. + #endif
  2380.           }
  2381.         else if (str[0] == 'd')
  2382.           {
  2383. ***************
  2384. *** 3480,3486 ****
  2385. --- 3568,3580 ----
  2386.        option flags in use.  */
  2387.     if (version_flag)
  2388.       {
  2389. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  2390. + #include "PatchLev.h"
  2391. +         fprintf (stderr, "%s version %s-atariST Patchlevel %s",
  2392. +          language_string, version_string, PatchLevel);
  2393. + #else
  2394.         fprintf (stderr, "%s version %s", language_string, version_string);
  2395. + #endif
  2396.   #ifdef TARGET_VERSION
  2397.         TARGET_VERSION;
  2398.   #endif
  2399. ***************
  2400. *** 3505,3510 ****
  2401. --- 3599,3606 ----
  2402.     if (output_bytecode)
  2403.       bc_write_file (stdout);
  2404.   
  2405. + #if (!(defined(atarist) || defined(atariminix)))
  2406. + #if (!(defined(CROSSHPUX)))
  2407.   #ifndef OS2
  2408.   #ifndef VMS
  2409.     if (flag_print_mem)
  2410. ***************
  2411. *** 3523,3528 ****
  2412. --- 3619,3626 ----
  2413.       }
  2414.   #endif /* not VMS */
  2415.   #endif /* not OS2 */
  2416. + #endif
  2417. + #endif
  2418.   
  2419.     if (errorcount)
  2420.       exit (FATAL_EXIT_CODE);
  2421. ***************
  2422. *** 3634,3636 ****
  2423. --- 3732,3753 ----
  2424.   
  2425.     fprintf (stderr, "\n");
  2426.   }
  2427. + 
  2428. + #ifdef atarist
  2429. + #include <string.h>
  2430. + 
  2431. + char *atari_filename_nondirectory(p)
  2432. + char *p;
  2433. + {
  2434. +     char *s;
  2435. +     
  2436. +     for(s = p + strlen(p); s != p; --s)
  2437. +     {
  2438. +     if((*s == '/') || (*s == '\\'))
  2439. +         break;
  2440. +     }
  2441. +     
  2442. +     return (s == p) ? p : s+1;
  2443. + }
  2444. + 
  2445. + #endif
  2446. *** gcc-2.5.0/varasm.c    Thu Jan 27 15:20:36 1994
  2447. --- /usr1/bammi/sun/usr2/gcc/varasm.c    Thu Jan 27 15:22:01 1994
  2448. ***************
  2449. *** 2831,2836 ****
  2450. --- 2831,2839 ----
  2451.   {
  2452.     struct rtx_const val0, val1;
  2453.   
  2454. +   if (XEXP (x, 0) == pc_rtx || XEXP (x, 1) == pc_rtx)
  2455. +     return XEXP (x, 0) == XEXP (x, 1) ? const0_rtx : x;
  2456. + 
  2457.     decode_rtx_const (GET_MODE (x), XEXP (x, 0), &val0);
  2458.     decode_rtx_const (GET_MODE (x), XEXP (x, 1), &val1);
  2459.   
  2460.